Міністерство освіти і науки України Національний університет “Львівська політехніка” Звіти з курсу “Бази даних та інформаційні системи” До лабораторних робіт №3,4,5 Лабораторна робота №3 Тема:Форми Мета: створити на основі існуючої бази даних форму для введення, оновлення і витирання даних Вигляд головної форми Вигляд підформи, що викликається Лабораторна робота №4 Тема: Звіти Мета: Система повинна надавати наступні звіти : Список екскурсій за певний проміжок часу з вказанням вартості. Графік використання автобусів за певний проміжок часу. Фінансовий звіт за місяць, який вказує для кожного дня загальну суму виконаних екскурсій та надходження оплати Довідку замовника з вказанням замовлених екскурсій та проведених оплат 1. Список екскурсій за певний проміжок часу з вказанням вартості. 2. Графік використання автобусів за певний проміжок часу. 3. Фінансовий звіт за місяць, який вказує для кожного дня загальну суму виконаних екскурсій та надходження оплати 4. Довідку замовника з вказанням замовлених екскурсій та проведених оплат Лабораторна робота №5 Тема: Обмеження цілісності Мета: Забезпечити обмеження цілісності, що задані в предметній області Обмеження цілісності: Автобус та шофер не можуть одночасно обслуговувати дві екскурсії. Потрібно контролювати місткість автобусів та інформувати чи є вона достатньою для екскурсії. Екскурсія не може надаватись замовнику, який має борг на протязі 30 днів. Автобуси можуть обслуговувати певні типи екскурсій. Автобус та шофер не можуть одночасно обслуговувати дві екскурсії SELECT Автобуси.Номерний_Знак, Тип_Екскурсії FROM Автобуси WHERE Автобуси.Номерний_Знак NOT IN (SELECT Забезпечення_Екскурсій.Номерний_Знак FROM Забезпечення_Екскурсій WHERE Забезпечення_Екскурсій.Дата_Екскурсії = [Дата]); 2. Потрібно контролювати місткість автобусів та інформувати чи є вона достатньою для екскурсії. Public Sub Check_Count() Dim a, b, c As Integer Cписок72.Requery a = Список72.ItemData(0) If IsNull(a) Then a = 0 b = Кількість_Екскурсантів.Value If IsNull(b) Then b = 0 c = b - a If a = 0 Then c = 0 If c > 0 Then Err_Msg.Visible = True Кількість_Екскурсантів.SetFocus Else Err_Msg.Visible = False End If End Sub Екскурсія не може надаватись замовнику, який має борг на протязі 30 днів //Таблиця боржників SELECT [Екскурсії].[ПІП_Замовника] FROM Екскурсії INNER JOIN Фінанси ON ([Екскурсії].[Дата_Екскурсії]=[Фінанси].[Дата_Екскурсії]) AND ([Екскурсії].[Місце_Призначення]=[Фінанси].[Місце_Призначення]) WHERE (Now()-[Екскурсії].[Дата_Екскурсії])>30 And [Фінанси].[Оплачено_Замовником]<[Фінанси].[Ціна_Екскурсії]; 4. Автобуси можуть обслуговувати певні типи екскурсій. //Запит з видами автобусів SELECT DISTINCT Автобуси.Номерний_Знак, Автобуси.Тип_Екскурсії FROM Автобуси;